
## Warning in validateCoords(lng, lat, funcName): Data contains 17 rows with
## either missing or invalid lat/lon values and will be ignored
## PFBS PFHpA PFHxS PFNA PFOA PFOS
## PFBS 1.0000 0.5703 0.8990 -0.0260 0.6643 0.6821
## PFHpA 0.5703 1.0000 0.5896 0.5228 0.8121 0.7546
## PFHxS 0.8990 0.5896 1.0000 -0.1065 0.6511 0.6881
## PFNA -0.0260 0.5228 -0.1065 1.0000 0.5051 0.3152
## PFOA 0.6643 0.8121 0.6511 0.5051 1.0000 0.7577
## PFOS 0.6821 0.7546 0.6881 0.3152 0.7577 1.0000

rain_pfasdates <- rainfall %>%
filter(DATE %in% PFAS_dates)%>%
filter(DATE > "2016-08-04")
rainfall_historical_updated<- ggplot(rain_pfasdates, aes(x=DATE, y=PRCP, group=STATION)) +
geom_line(aes(color=STATION))+
geom_point(aes(color=STATION))
ggplotly(rainfall_historical_updated)

## TableGrob (2 x 1) "arrange": 2 grobs
## z cells name grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[layout]
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
## [1,] PFBS PFBS PFBS PFBS PFBS PFHpA PFHpA PFHpA PFHpA PFHxS PFHxS PFHxS
## [2,] PFHpA PFHxS PFNA PFOA PFOS PFHxS PFNA PFOA PFOS PFNA PFOA PFOS
## [,13] [,14] [,15]
## [1,] PFNA PFNA PFOA
## [2,] PFOA PFOS PFOS
## 15 Levels: EtFOSA GenX MeFOSA PFBS PFDA PFDoA PFHpA PFHxA PFHxS ... PFUnA

## TableGrob (5 x 3) "arrange": 15 grobs
## z cells name grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 3 3 (1-1,3-3) arrange gtable[layout]
## 4 4 (2-2,1-1) arrange gtable[layout]
## 5 5 (2-2,2-2) arrange gtable[layout]
## 6 6 (2-2,3-3) arrange gtable[layout]
## 7 7 (3-3,1-1) arrange gtable[layout]
## 8 8 (3-3,2-2) arrange gtable[layout]
## 9 9 (3-3,3-3) arrange gtable[layout]
## 10 10 (4-4,1-1) arrange gtable[layout]
## 11 11 (4-4,2-2) arrange gtable[layout]
## 12 12 (4-4,3-3) arrange gtable[layout]
## 13 13 (5-5,1-1) arrange gtable[layout]
## 14 14 (5-5,2-2) arrange gtable[layout]
## 15 15 (5-5,3-3) arrange gtable[layout]